home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.11 Nov 87 / C string library / PStrLib Source / PStrFixLen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-21  |  468 b   |  20 lines  |  [TEXT/KAHL]
  1. /*    FILE:    PStrFixLen.c
  2.     Sets length of pascal string s to len by either chopping
  3.     extra chars off or by padding out with c characters. */
  4. #include    "PStrLib.h"
  5.  
  6. PStrFixLen(s, len, c)
  7. register    unsigned char    *s;        /* pascal string */
  8. register     int                len;    /* max length is 255 */
  9. register    int                c;        /* pad character */
  10. {    
  11.     register    unsigned char    *sp = s + *s;
  12.     register    int                n;
  13.     
  14.     if (*s < (len &= 0xFF)) {
  15.         n = len - *s;
  16.         while (--n >= 0)  *++sp = c;
  17.     }
  18.     *s = len;
  19. }
  20.